if there is a window currwindow then close window currwindow
QTMovie OpenMovie, tallWindoid, bg field fileName, the topleft of btn here, invisible
get the result
if "Error" is in it then
answer it
exit mouseUp
end if
put ExtractFileName(bg field fileName) into currWindow
put duration of window currwindow into dur
put round(dur/2) into halfTime
-- Following 3 lines test backwards callback
-- send pause to window currwindow
-- set currTime of window currWindow to dur
-- send reverse to window currWindow
-- TimedCallBack expects <handler name> space <time>
-- Note: you can pass the keyword "end" for the time
set TimedCallBack of window currwindow to intermission && halfTime
show window currWindow
end mouseUp
</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>217</left>
<top>56</top>
<right>265</right>
<bottom>96</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>here</name>
<script>on mouseDown
put the clickLoc into myClick
put the loc of me into origLoc
put item 1 of origLoc into origX
put item 2 of origLoc into origY
put item 1 of myClick into clickX
put item 2 of myClick into clickY
repeat while the mouse is down
set loc of me to Min(Max(0,origX - (clickX - the mouseH)),width of this card),¬
Min(Max(0, origY - (clickY - the mouseV)), height of this card)
end repeat
end mouseDown</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>55</top>
<right>212</right>
<bottom>320</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>help text</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>4</id>
<text>Your Volume:Your Folder:Your File</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>Timed Call Back</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>You can specify a handler to be called when a certain time is reached. This example calls the handler “intermission” when the movie reaches the half way point.</text>
</content>
<name>Timed Call Back</name>
<script>on intermission w
global currWindow,halfTime
if there is a window currwindow then
send pause to window currwindow
set currTime of window currwindow to halfTime
set loc of msg window to 50,300
put "HALFTIME INTERMISSION"
repeat with i = 1 to 60
put " " before msg
wait 2
end repeat
send play to window currwindow
end if
hide msg
end intermission
on closeCard
global currwindow
if there is a window currwindow then close window currwindow
pass CloseCard
end closecard
</script>
</card>
card_10765.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
if there is a window currWindow then close window currWindow
QTMovie OpenMovie, windoid, bg field fileName, the topLeft of btn "here", loop, nocontroller, mute
get the result
if "Error" is in it then
answer it
exit mouseUp
end if
put ExtractFileName(bg field fileName) into currWindow
set mouseDownMsg of window currWindow to ToggleController
end mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>55</top>
<right>212</right>
<bottom>320</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>help text</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>216</left>
<top>93</top>
<right>264</right>
<bottom>133</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>here</name>
<script>on mouseDown
put the clickLoc into myClick
put the loc of me into origLoc
put item 1 of origLoc into origX
put item 2 of origLoc into origY
put item 1 of myClick into clickX
put item 2 of myClick into clickY
repeat while the mouse is down
set loc of me to Min(Max(0,origX - (clickX - the mouseH)),width of this card),¬
Min(Max(0, origY - (clickY - the mouseV)), height of this card)
end repeat
end mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>4</id>
<text>Your Volume:Your Folder:Your File</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>MouseDown Callback</text>
</content>
<content>
<layer>card</layer>
<id>5</id>
<text>You can specify a handler in your card script to be called whenever the mouse is clicked in the movie portion of the window. This example hides or shows the movie controller if the cmdKey is pressed.</text>
</content>
<name>MouseDown Callback</name>
<script>on ToggleController pt,movieTime,wName
-- This is the mouse down call back routine that is set up
-- in the "Click Here First button" on this card.
-- There are three parameters passed to this routine,
-- but we only use the third one for this example. Those parameters
-- are the mousePoint, the movie time of the click, and the name of
-- the movie window clicked in.
if the commandKey is down then
if hasController of window wName then
send hidecontroller to window wName
else
send showcontroller to window wName
end if
else
-- this allows the mouse down to be processed by the movie controller
send PassMouseDown to window wName
end if
end ToggleController
on closeCard
global currWindow
if there is a window currWindow then
close window currWindow
end if
pass CloseCard
end closeCard
</script>
</card>
card_6566.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
put ExtractFileName(bg field fileName) into currWindow
end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>94</left>
<top>91</top>
<right>334</right>
<bottom>271</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>view</name>
<script></script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>228</left>
<top>336</top>
<right>342</right>
<bottom>358</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Close Movie</name>
<script>on mouseUp
global currWindow
if there is a window currWindow then close window currWindow
end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>445</left>
<top>280</top>
<right>525</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>outer</name>
<script></script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>445</left>
<top>280</top>
<right>485</right>
<bottom>310</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>inner</name>
<script>on mouseDown
-- This script drags this small button about, pinning it to the rect
-- of button "outer". It resets the "movieLoc" of the movie window
-- which adjusts the location of the movie within its window in proportion
-- to the position of this inner button within the outer button
put the clickLoc into startLoc
put the loc of me into origLoc
put the right of btn outer - width of me / 2 into maxX
put the left of btn outer + width of me / 2 into minX
put the bottom of btn outer - height of me / 2 into maxY
put the top of btn outer + height of me / 2 into minY
repeat until the mouse is up
get the mouseLoc
put item 1 of it - item 1 of startLoc into dX
put item 2 of it - item 2 of startLoc into dY
put item 1 of origLoc + dX into newX
put item 2 of origLoc + dY into newY
-- here's the pinning
set loc of me to min(max(minX, newX), maxX), min(max(minY, newY), maxY)
put topLeft of me into innerPt
put topLeft of btn outer into outerPt
put -(item 1 of innerPt - item 1 of outerPt)/¬
width of btn outer * width of btn view * 2¬
into item 1 of newMLoc
put -(item 2 of innerPt - item 2 of outerPt)/¬
height of btn outer * height of btn view * 2¬
into item 2 of newMLoc
global currWindow
if there is a window currWindow then set movieLoc of window currWindow to newMLoc
end repeat
end mouseDown
</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>340</left>
<top>43</top>
<right>573</right>
<bottom>249</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>help text</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>4</id>
<text>Your Volume:Your Folder:Your File</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>Panning a Movie</text>
</content>
<content>
<layer>card</layer>
<id>13</id>
<text>This demonstrates an interesting way you can scroll a movie. It sets the initial size of the movie very large and sets the window size smaller (using the clipTo option on OpenMovie). The scrolling is done by setting the movieLoc property.
</text>
</content>
<name>Panning a Movie</name>
<script>on closeCard
global currWindow
if there is a window currWindow then close window currWindow
pass CloseCard
end closeCard
on primeCard
set topLeft of btn inner to topLeft of btn outer
pass primeCard
end primeCard
</script>
</card>
card_4954.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>Using the BitMapClip property, you can show movies in arbitrary shapes. Just specify a rectangle about the shape you wish to show the movie in. (A transparent card button is handy for such things.) For the window movie, which uses the special MovieWDEF window type, you can cmd/click in the window to drag it around. The PasteBitMapClip command used by Window Movie 2, gets its bitmap from the clipboard, which the script copies there from a bitmap hidden behind the rectangular button to the right.</text>
</content>
<name>Clipped Movies</name>
<script>on idle
global movieID
if movieID is not empty and movieID is a number then
QTMovie Direct,movieID,Idle
end if
end idle
on CloseCard
DisposeVideo
pass CloseCard
end CloseCard
on PlayClippedMovie
global movieID,currWindow
DisposeVideo -- in case one's already there
if there is a window currwindow then close window currwindow
QTMovie OpenMovie,Direct,bg field fileName,the rect of btn "france",¬
paused,invisible,loop
put the result into movieID
if "Error" is in movieID then
answer movieID
put empty into movieID
exit PlayClippedMovie
end if
-- if we don't hide the field, then the text will become part of
-- the bitmap
hide cd field france
QTMovie Direct,movieID,Set,BitMapClip,the rect of btn "france"
show cd field france
QTMovie Direct,movieID,Set,visible,true
QTMovie Direct,movieID,Play
end PlayClippedMovie
on PlayClippedWindowMovie
global movieID,currWindow
DisposeVideo -- in case one's already there
if there is a window currwindow then close window currwindow
QTMovie OpenMovie,MovieWDEF,bg field fileName,the rect of btn "france",¬
QTMovie Direct,movieID,Set,pathStartPt,the topLeft of btn startBtn
QTMovie Direct,movieID,Set,pathEndPt,the topLeft of btn endBtn
QTMovie Direct,movieID,Set,pathNumFrames,6
if the shiftkey is up then QTMovie Direct,movieID,Set,pathPlayFrames,true
QTMovie Direct,movieID,PlotPath
QTMovie Direct,movieID,Dispose
end mouseUp
</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>54</left>
<top>242</top>
<right>135</right>
<bottom>300</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>startBtn</name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>448</left>
<top>243</top>
<right>520</right>
<bottom>300</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>endBtn</name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>186</left>
<top>337</top>
<right>295</right>
<bottom>356</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Dispose Movie</name>
<script>on mouseUp
DisposeVideo
end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>3</left>
<top>30</top>
<right>318</right>
<bottom>233</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>help text</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>4</id>
<text>Your Volume:Your Folder:Your File</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>Splat Movie</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>This is also an application of PlotPath. In this case the frames do not overlap and the movie is playing while it splats across the screen. If you hold down the shift key, then the movie will not be played. Works best with a short movie or short segment of a movie. See “Click here” button script to see how to splat a segment of the movie.</text>
</content>
<name>Splat Movie</name>
<script>on idle
global movieID
if movieID is not empty and movieID is a number then
QTMovie Direct,movieID,Idle
end if
end idle
on CloseCard
DisposeVideo
pass CloseCard
end CloseCard
</script>
</card>
card_3809.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
QTMovie OpenMovie, Direct, bg field fileName, the rect of btn startBtn, Paused
put the result into movieID
if "Error" is in movieID then
answer movieID
put empty into movieID
exit mouseUp
end if
QTMovie Direct,movieID,Set,pathStartPt,the topLeft of btn startBtn
QTMovie Direct,movieID,Set,pathEndPt,the topLeft of btn endBtn
QTMovie Direct,movieID,Set,pathNumFrames,30
QTMovie Direct,movieID,PlotPath
QTMovie Direct,movieID,Pause
QTMovie Direct,movieID,Set,eraseOnMove,false
QTMovie Direct,movieID,Set,movieRect,the rect of btn here
QTMovie Direct,movieID,Set,eraseOnMove,true
QTMovie Direct,movieID,Set,currTime,0
QTMovie Direct,movieID,Get,duration
put the result into dur
end mouseUp
</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>219</left>
<top>144</top>
<right>361</right>
<bottom>246</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>here</name>
<script>on mouseUp
playvideo
end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>236</left>
<top>338</top>
<right>345</right>
<bottom>358</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Dispose Movie</name>
<script>on mouseUp
DisposeVideo
end mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>6</left>
<top>36</top>
<right>575</right>
<bottom>142</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>help text</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>4</id>
<text>Your Volume:Your Folder:Your File</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>The Kerns Smear</text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text>PlotPath is a unique feature of Direct movies. This example will spread a movie out from startBtn to endBtn showing the left edges of the frames. A mouseDown handler in the card script allows you to then quickly index into the movie by clicking and dragging in the image. Works best with movies that have a lot of changing scenery.</text>
</content>
<name>The Kerns Smear</name>
<script>on mouseDown
global movieID,dur
if movieID is empty then exit mouseDown
get the clickLoc
put the topLeft of btn startBtn & "," & ¬
the botRight of btn endBtn into r
repeat while the mouse is down
if it is within r then
put round(dur / 30) into chunkSize
put item 3 of r - item 1 of r - width of btn endBtn into wid
put trunc(((item 1 of it - item 1 of r) / wid) * 29) into index
QTMovie Direct,movieID,Set,eraseOnMove,not the hilite of btn "leave trail"
if origPt is within growRect then
put item 3 of growRect - item 1 of origPt into slopX
put item 4 of growRect - item 2 of origPt into slopY
repeat while the mouse is down
get the mouseLoc
put the left of me + 30 - slopX into minLimX
put the top of me + 30 - slopY into minLimY
put width of card window - slopX into maxLimX
put top of btn "Click here first" - slopY into maxLimY
if item 1 of it < minLimX then put minLimX into item 1 of it
if item 2 of it < minLimY then put minLimY into item 2 of it
if item 1 of it > maxLimX then put maxLimX into item 1 of it
if item 2 of it > maxLimY then put maxLimY into item 2 of it
put item 1 of it + slopX into item 3 of newRect
put item 2 of it + slopY into item 4 of newRect
if movieID is empty then
set the rect of me to newRect
else if newRect <> origRect then
QTMovie Direct,movieID,Set,movieRect,newRect
end if
end repeat
else
put item 1 of origPt - the left of me into minLimX
put item 2 of origPt - the top of me into minLimY
put width of card window - width of me + minLimX into maxLimX
put top of btn "Click here first" - height of me + minLimY into maxLimY
repeat while the mouse is down
get the mouseLoc
if item 1 of it < minLimX then put minLimX into item 1 of it
if item 2 of it < minLimY then put minLimY into item 2 of it
if item 1 of it > maxLimX then put maxLimX into item 1 of it
if item 2 of it > maxLimY then put maxLimY into item 2 of it
put item 1 of it - item 1 of origPt into slopX
put item 2 of it - item 2 of origPt into slopY
put origRect into myRect
add slopX to item 1 of myRect
add slopX to item 3 of myRect
add slopY to item 2 of myRect
add slopY to item 4 of myRect
if movieID is empty then
set the rect of me to myRect
else
QTMovie Direct,movieID,Set,movieRect,myRect
end if
end repeat
put myRect into newRect
end if
set the rect of me to newRect
if movieID is empty then show me
QTMovie Direct,movieID,Set,eraseOnMove,true
end mouseDown
</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>208</left>
<top>338</top>
<right>318</right>
<bottom>358</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Dispose Movie</name>
<script>on mouseUp
DisposeVideo
end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>320</left>
<top>338</top>
<right>421</right>
<bottom>358</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Mute Movie</name>
<script>on mouseUp
global movieId
QTMovie Direct,movieID,Set,mute,the hilite of me
end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>422</left>
<top>338</top>
<right>544</right>
<bottom>355</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Leave Trail</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>3</left>
<top>40</top>
<right>225</right>
<bottom>326</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>help text</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>5</id>
<text>Drag and Resize</text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>Your Volume:Your Folder:Your File</text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text>This demonstrates some of the unique things you can do with a Direct movie. You can drag the movie about, leaving a trail behind. If you click in the lower right of the movie, you can resize the movie. Note that the image remains only until HyperCard needs to update the card.
</text>
</content>
<name>Drag and Resize</name>
<script>on idle
global movieID
if movieID is not empty and movieID is a number then
QTMovie Direct,movieID,Idle
end if
end idle
on CloseCard
DisposeVideo
show btn "then drag me"
pass CloseCard
end CloseCard
on OpenCard
global movieID
put empty into movieID
show btn "then drag me"
pass openCard
end OpenCard
on mouseDown
if the clickLoc is within the rect of btn "then drag me" then
send mouseDown to btn "then drag me"
end if
end mouseDown
on primeCard
set rect of btn "then drag me" to 220,138,332,220
set hilite of btn "mute movie" to false
set hilite of btn "leave trail" to true
pass primeCard
end primeCard
</script>
</card>
card_6233.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
set segmentStart of window currWindow to the currTime of window currWindow
end if
end mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>225</left>
<top>276</top>
<right>332</right>
<bottom>299</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Set Seg End</name>
<script>on mouseUp
global currWindow
if there is a window currWindow then
set segmentEnd of window currWindow to the currTime of window currWindow
end if
end mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>338</left>
<top>276</top>
<right>450</right>
<bottom>299</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Play Segment</name>
<script>on mouseUp
global currWindow
if there is a window currWindow then
set segmentPlay of window currWindow to the hilite of me
end if
end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>88</left>
<top>338</top>
<right>221</right>
<bottom>358</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Click here first</name>
<script>on mouseUp
global currWindow
if there is a window currWindow then close window currWindow
if the hilite of btn loop then
put loop into loopKind
else if the hilite of btn palindrome then
put palindrome into loopKind
else
put empty into loopKind
end if
QTMovie OpenMovie, windoid, bg field fileName, the topLeft of btn here, loopKind
get the result
if "Error" is in it then
answer it
exit mouseUp
end if
put ExtractFileName(bg field fileName) into currWindow
set hilite of btn "play segment" to false
end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>158</left>
<top>252</top>
<right>205</right>
<bottom>268</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Loop</name>
<script>on mouseUp
LoopSelect
end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>215</left>
<top>252</top>
<right>299</right>
<bottom>268</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Palindrome</name>
<script>on mouseUp
LoopSelect
end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>309</left>
<top>252</top>
<right>393</right>
<bottom>268</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Neither</name>
<script>on mouseUp
LoopSelect
end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>183</left>
<top>65</top>
<right>230</right>
<bottom>97</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>here</name>
<script>on mouseDown
put the clickLoc into myClick
put the loc of me into origLoc
put item 1 of origLoc into origX
put item 2 of origLoc into origY
put item 1 of myClick into clickX
put item 2 of myClick into clickY
repeat while the mouse is down
set loc of me to Min(Max(0,origX - (clickX - the mouseH)),width of this card),¬
Min(Max(0, origY - (clickY - the mouseV)), height of this card)
end repeat
end mouseDown</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>391</left>
<top>32</top>
<right>572</right>
<bottom>274</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>help text</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>4</id>
<text>Your Volume:Your Folder:Your File</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>Segment play</text>
</content>
<content>
<layer>card</layer>
<id>11</id>
<text>After you select and start a movie, click on Set Seg Start, then Set Seg End, then Play Segment. The Segment selected will be played in the chosen loop mode.
(You must click seg start before seg end.)
</text>
</content>
<name>Segment play</name>
<script>on LoopSelect loopType
put "loop,palindrome,neither" into btnNames
if loopType is empty then put the short name of the target into loopType
repeat with i = 1 to 3
put (item i of btnNames = loopType) into hiliteit
set hilite of btn (item i of btnNames) to hiliteIt
end repeat
global currWindow
if there is a window currWindow then
set loop of window currWindow to the hilite of btn loop
set palindrome of window currWindow to the hilite of btn palindrome
end if
end LoopSelect
on closeCard
global currWindow
if there is a window currWindow then close window currWindow
pass CloseCard
end closeCard
on primeCard
LoopSelect "Loop"
Set hilite of btn "Play Segment" to false
pass primeCard
end primeCard
</script>
</card>
card_8456.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
set the closeOnFinish of window currwindow to the hilite of me
end if
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>166</top>
<right>576</right>
<bottom>182</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>SeeAllFrames</name>
<script>on mouseUp
global currwindow
if there is a window currwindow then
set seeAllFrames of window currwindow to the hilite of me
if not the hilite of me then send play to window currwindow
end if
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>181</top>
<right>576</right>
<bottom>197</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>ShowPoster</name>
<script>on mouseUp
global currwindow
if there is a window currwindow then
if the hilite of me then
send showposter to window currwindow
else
--send hideposter to window currwindow
end if
end if
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>355</left>
<top>211</top>
<right>442</right>
<bottom>227</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Invisible</name>
<script>on mouseUp
global currwindow
if there is a window currwindow then
set visible of window currwindow to not the hilite of me
end if
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>355</left>
<top>226</top>
<right>442</right>
<bottom>242</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Mute</name>
<script>on mouseUp
global currwindow
if there is a window currwindow then
set mute of window currwindow to the hilite of me
end if
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>89</left>
<top>339</top>
<right>195</right>
<bottom>358</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Play Movie</name>
<script>on mouseUp
global currWindow
--if there is a window currWindow then close window currwindow
put composeCommand() into QTCommand
setSoundBar 255
setRateBar 1
set cursor to watch
do QTCommand
get the result
if "Error" is in it then
answer it
put empty into currWindow
else
put ExtractFileName(bg field fileName) into currWindow
end if
end mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>313</left>
<top>53</top>
<right>405</right>
<bottom>73</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>TallWindoid</name>
<script>on mouseDown
put "Plain,Windoid,Document,Dialog,AltDialog,TallWindoid,MovieWDEF"¬
into theMenuItems
get PopUpMenu (theMenuItems, 0, bottom of me, left of me+1)
If it > 0 then
set name of me to item it of theMenuItems
end if
end mouseDown
</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>355</left>
<top>196</top>
<right>442</right>
<bottom>212</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Paused</name>
<script>on mouseUp
global currwindow
if there is a window currwindow then
if the hilite of me then
send pause to window currwindow
else
send play to window currwindow
end if
end if
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>77</left>
<top>88</top>
<right>122</right>
<bottom>124</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>here</name>
<script>on mouseDown
put the clickLoc into myClick
put the loc of me into origLoc
put item 1 of origLoc into origX
put item 2 of origLoc into origY
put item 1 of myClick into clickX
put item 2 of myClick into clickY
repeat while the mouse is down
set loc of me to Min(Max(0,origX - (clickX - the mouseH)),width of this card),¬
Min(Max(0, origY - (clickY - the mouseV)), height of this card)
end repeat
end mouseDown</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>197</left>
<top>339</top>
<right>310</right>
<bottom>358</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Close Window</name>
<script>on mouseUp
global currwindow
if there is a window currwindow then close window currwindow
end mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>283</top>
<right>551</right>
<bottom>292</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>soundbar</name>
<script></script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>542</left>
<top>277</top>
<right>550</right>
<bottom>298</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>soundKnob</name>
<script>on mouseDown
global dX
put item 1 of the clickLoc-the Left of me into dX
end mouseDown
on mouseStillDown
global dX
put the mouseLoc into currLoc
put the left of btn soundbar+1+dX into minX
put the right of btn soundbar-width of me-1+dX into maxX
put the topLeft of me into newTopLeft
put min(max(item 1 of currLoc, minX),maxX)-dX into item 1 of newtopLeft
set the topLeft of me to newTopLeft
put (item 1 of newtopLeft - minX+dX) / (maxX-minX) into fraction
put round(fraction * 255) into x
put x into cd field soundData
global currwindow
if there is a window currwindow then
set audioLevel of window currwindow to x
send idle to window currwindow
end if
end mouseStillDown
</script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>411</left>
<top>280</top>
<right>445</right>
<bottom>293</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>9</textHeight>
<name>soundData</name>
<script></script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>311</top>
<right>551</right>
<bottom>320</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ratebar</name>
<script></script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>500</left>
<top>306</top>
<right>508</right>
<bottom>327</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>rateKnob</name>
<script>on mouseDown
global dX
put item 1 of the clickLoc-the Left of me into dX
end mouseDown
on mouseStillDown
global dX
put the mouseLoc into currLoc
put the left of btn ratebar+1+dX into minX
put the right of btn ratebar-width of me-1+dX into maxX
put the topLeft of me into newTopLeft
put min(max(item 1 of currLoc, minX),maxX)-dX into item 1 of newtopLeft
set the topLeft of me to newTopLeft
put (item 1 of newtopLeft - minX+dX) / (maxX-minX) into fraction
put (round(fraction * 100) -50)/10 into x
put x into cd field rateData
global currwindow
if there is a window currwindow then
set rate of window currwindow to x
end if
end mouseStillDown
</script>
</part>
<part>
<id>30</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>411</left>
<top>308</top>
<right>445</right>
<bottom>321</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>9</textHeight>
<name>rateData</name>
<script></script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>418</left>
<top>68</top>
<right>480</right>
<bottom>84</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Card</name>
<script>on mouseUp
LocSelect
end mouseUp</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>418</left>
<top>53</top>
<right>550</right>
<bottom>69</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Deepest</name>
<script>on mouseUp
LocSelect
end mouseUp</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>418</left>
<top>83</top>
<right>550</right>
<bottom>99</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>topLeft of btn here</name>
<script>on mouseUp
LocSelect
end mouseUp</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>486</left>
<top>126</top>
<right>570</right>
<bottom>142</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Neither</name>
<script>on mouseUp
LoopSelect
end mouseUp</script>
</part>
<part>
<id>59</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>3</left>
<top>127</top>
<right>342</right>
<bottom>299</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>help text</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<part>
<id>45</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>6</left>
<top>289</top>
<right>373</right>
<bottom>336</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>theCommand</name>
<script>on mouseUp
end mouseUp</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>7</left>
<top>271</top>
<right>106</right>
<bottom>286</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Show Command</name>
<script>on mouseUp
if "show" is in the name of me then
put composecommand() into cd field theCommand
show cd field theCommand
show cd btn "Copy to Clipboard"
set name of me to "Hide Command"
else
hide cd field theCommand
hide cd btn "Copy to Clipboard"
set name of me to "Show Command"
end if
end mouseUp</script>
</part>
<part>
<id>47</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>488</left>
<top>68</top>
<right>550</right>
<bottom>84</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Main</name>
<script>on mouseUp
LocSelect
end mouseUp</script>
</part>
<part>
<id>48</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>196</top>
<right>560</right>
<bottom>212</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Load into RAM</name>
<script>on mouseUp
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>50</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>226</top>
<right>574</right>
<bottom>242</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Don't Paint White</name>
<script>on mouseUp
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>60</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>355</left>
<top>181</top>
<right>442</right>
<bottom>197</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Badge</name>
<script>on mouseUp
global currwindow
if there is a window currwindow then
set badge of window currwindow to the hilite of me
end if
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>67</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>241</top>
<right>574</right>
<bottom>257</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Fast Idle</name>
<script>on mouseUp
pass mouseUp
end mouseUp</script>
</part>
<part>
<id>69</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>114</left>
<top>271</top>
<right>221</right>
<bottom>286</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Copy To Clipboard</name>
<script>on mouseUp
select text of cd field theCommand
domenu copy text
select empty
end mouseUp</script>
</part>
<part>
<id>70</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>312</left>
<top>339</top>
<right>425</right>
<bottom>358</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Copy Frame</name>
<script>on mouseUp
global currwindow
if there is a window currwindow then
send copyFrame to window currwindow
if "Error" is in the result then answer the result
end if
end mouseUp</script>
</part>
<part>
<id>71</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>211</top>
<right>565</right>
<bottom>227</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Show Grow Box</name>
<script>on mouseUp
pass mouseUp
end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>4</id>
<text>Your Volume:Your Folder:Your File</text>
</content>
<content>
<layer>card</layer>
<id>27</id>
<text>255</text>
</content>
<content>
<layer>card</layer>
<id>30</id>
<text>1</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>Play a Movie</text>
</content>
<content>
<layer>card</layer>
<id>45</id>
<text>QTMovie OpenMovie,TallWindoid,bg field fileName,the topLeft of btn here,loop,mute</text>
</content>
<content>
<layer>card</layer>
<id>59</id>
<text>This card lets you try out most of the initial options when playing a movie in a window. The Show Command button will show you the exact syntax of the command sent to play the movie. You can drag the “here” button around to change the initial position of the movie.
</text>
</content>
<name>Play a Movie</name>
<script>on closecard
global currwindow
if there is a window currwindow then close window currwindow
pass CloseCard
end closecard
function composeCommand
put "QTMovie OpenMovie," & the short name of btn id 21 & "," into QTCommand
put ",the topLeft of btn here" into movieLoc
if the hilite of btn "card" then
put ",card" into movieLoc
else if the hilite of btn "deepest" then
put ",deepest" into movieLoc
else if the hilite of btn "main" then
put ",main" into movieLoc
end if
put "bg field fileName" after QTCommand
put movieLoc after QTCommand
if the hilite of btn controller is not true then
put ",nocontroller" after QTCommand
end if
if the hilite of btn "Show Grow Box" is true then
put ",showGrowBox" after QTCommand
end if
if the hilite of btn badge is true then
put ",badge" after QTCommand
end if
if the hilite of btn loop is true then
put ",loop" after QTCommand
end if
if the hilite of btn palindrome is true then
put ",palindrome" after QTCommand
end if
if the hilite of btn closeonfinish is true then
put ",closeonfinish" after QTCommand
end if
if the hilite of btn seeallframes is true then
put ",seeallframes" after QTCommand
end if
if the hilite of btn showposter is true then
put ",showposter" after QTCommand
end if
if the hilite of btn paused is true then
put ",paused" after QTCommand
end if
if the hilite of btn invisible is true then
put ",invisible" after QTCommand
end if
if the hilite of btn mute is true then
put ",mute" after QTCommand
end if
if the hilite of btn "load into ram" is true then
put ",loadIntoRAM" after QTCommand
end if
if the hilite of btn "Don't Paint White" is true then
put ",dontPaintWhite" after QTCommand
end if
if the hilite of btn "Fast Idle" is true then
put ",fastIdle" after QTCommand
end if
return QTCommand
end composeCommand
on setRateBar r
put r+10 into newR
put newR/20 into fraction
put left of btn rateBar + round(fraction * (right of btn rateBar - ¬
left of btn rateBar - width of btn rateKnob - 1)) into x
put topLeft of btn rateknob into newTopLeft
put x into item 1 of newTopLeft
set topLeft of btn rateKnob to newTopLeft
put r into cd field rateData
end setRateBar
on setSoundBar v
put v/255 into fraction
put left of btn soundBar + round(fraction * (right of btn soundBar - ¬
left of btn soundBar - width of btn soundKnob - 1)) into x
put topLeft of btn soundknob into newTopLeft
put x into item 1 of newTopLeft
set topLeft of btn soundKnob to newTopLeft
put v into cd field soundData
end setSoundBar
on LocSelect
put "deepest,card,main,topLeft of btn here" into btnNames
repeat with i = 1 to 4
put (item i of btnNames = the short name of the target) into hiliteit
set hilite of btn (item i of btnNames) to hiliteIt
end repeat
put composecommand() into cd field theCommand
end LocSelect
on LoopSelect
put "loop,palindrome,neither" into btnNames
repeat with i = 1 to 3
put (item i of btnNames = the short name of the target) into hiliteit
set hilite of btn (item i of btnNames) to hiliteIt
end repeat
global currWindow
get the short name of the target
if there is a window currWindow then
set loop of window currWindow to the hilite of btn loop
set palindrome of window currWindow to the hilite of btn palindrome
end if
put composecommand() into cd field theCommand
end LoopSelect
on CursorShape pt
set cursor to 3
end CursorShape
on setCursorShape
global currWindow
set cursorMsg of window currWindow to CursorShape
end setCursorShape
on primeCard
set name of btn id 21 to "TallWindoid"
set hilite of btn "deepest" to false
set hilite of btn "card" to false
set hilite of btn "main" to false
set hilite of btn "topleft of btn here" to true
set hilite of btn "palindrome" to false
set hilite of btn "neither" to false
set hilite of btn "loop" to true
set hilite of btn "controller" to true
set hilite of btn "badge" to false
set hilite of btn "paused" to false
set hilite of btn "invisible" to false
set hilite of btn "mute" to false
set hilite of btn "closeonfinish" to false
set hilite of btn "seeallframes" to false
set hilite of btn "showposter" to false
set hilite of btn "load into ram" to false
set hilite of btn "don't paint white" to false
set hilite of btn "Fast Idle" to false
set hilite of btn "Show Grow Box" to false
setSoundBar 255
setRateBar 1
set rect of btn here to "77,88,122,124"
hide cd field theCommand
hide btn "Copy to clipboard"
set name of btn id 46 to "Show Command"
pass primeCard
end primeCard
on mouseUp
if "button" is in the name of the target then
put composecommand() into cd field theCommand
end if
end mouseUp</script>
</card>
card_2150.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
